﻿Public Class Over100KBException
    Inherits ApplicationException

    Private _fileSize As Long

    Public Sub New(ByVal Message As String)
        MyBase.New("Over100KBException Exception Found for file "&Message)
        MessageBox.Show("Over100KBException Exception Found for file " & Message)
    End Sub

    Public Sub New(ByVal Message As String, ByVal Inner As Exception)
        MyBase.New("Over100KBException Exception Found for file " & Message, Inner)
        MessageBox.Show("Over100KBException Exception Found for file " & Message)
    End Sub

    Public Sub New(ByVal Message As String, ByVal Inner As Exception, ByVal FileSize As Long)

        MyBase.New("Over100KBException Exception Found for file " & Message, Inner)
        MessageBox.Show("Over100KBException Exception Found for file " & Message)
        _fileSize = FileSize
    End Sub

    Public ReadOnly Property FileSize() As Long
        Get
            Return _fileSize
        End Get
    End Property
End Class